home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_7014.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  611 b   |  29 lines
  1. _GetLeading neg _RMoveY
  2.  
  3. [.025 {.125 Str_WidX_to_XPer}{.225 Str_WidX_to_XPer}] [0 .25 .5 .75] Set_Up_Columns
  4.  
  5. end
  6.  
  7. left hdif 3 mul 4 div add bottom vline stroke
  8.  
  9. left hdif 2 div add bottom vline stroke
  10.  
  11. top bottom sub dup dup left hdif 4 div add bottom vline stroke
  12.  
  13. hdif left top _GetLeading 1.5 mul sub hline stroke
  14.  
  15. left bottom right top rectpath hairwid 0 setgray stroke
  16.  
  17. /hdif right left sub def /top top boxsize tw2 add _GetLeading add sub def
  18.  
  19. bottom _GetLeading 2 div add _SetBM right _SetRM
  20.  
  21. left _SetLM
  22.  
  23. top boxsize tw2 add sub _SetTM
  24.  
  25. descFont 10 _ScaleFont setfont
  26.  
  27. _PageHeaderDict begin imagearea
  28.  
  29.